home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / chat / 20 / 20.exe / default.lib < prev    next >
Encoding:
Text File  |  1997-09-02  |  15.5 KB  |  654 lines
  1. // Visual IRC '97 standard event/alias/menu library
  2. // Version 1.00
  3.  
  4. Name ViRC '97 1.00 event/alias/menu library
  5.  
  6. // Events
  7.  
  8. Event <default> "*"
  9.   // This event is handled internally.
  10.  
  11.   // Default server text is displayed
  12.   // automatically by ViRC '97.
  13. EndEvent
  14.  
  15. Event <OnStart> "*"
  16.   // This event is fired when ViRC '97 starts up.
  17. EndEvent
  18.  
  19. Event <OnClose> "*"
  20.   // This event is fired when ViRC '97 closes down.
  21. EndEvent
  22.  
  23. Event <OnConnect> "*"
  24.   // This event is fired on connection to the server.
  25. EndEvent
  26.  
  27. Event <OnDisconnect> "*"
  28.   // This event is fired on disconnection from the server.
  29.  
  30.   if ($ChannelCount() > 0)
  31.      TextOut ecError *** Disconnected from server \b$server\b.
  32.   endif
  33. EndEvent
  34.  
  35. Event <OnNotifyJoin> "*"
  36.   TextOut > . ecNOTICE *** Notify: $0 is on IRC
  37. EndEvent
  38.  
  39. Event <OnNotifyQuit> "*"
  40.   TextOut > . ecNOTICE *** Notify: $0 has quit IRC
  41. EndEvent
  42.  
  43. Event <OnNewInactiveText> "*"
  44.   // This event is fired when a line of text is added
  45.   // to a window that doesn't have the focus.
  46. EndEvent
  47.  
  48. Event <OnDCCChatConnect> "*"
  49.   // Fired when a DCC Chat session connects.
  50.   // The nick is in $0.
  51. EndEvent
  52.  
  53. Event <OnDCCChatDisconnect> "*"
  54.   // Fired when a DCC Chat session disconnects.
  55.   // The nick is in $0.
  56. EndEvent
  57.  
  58. Event <OnDCCChatText> "*"
  59.   // Fired when new DCC Chat text comes in.
  60.   // The nick is in $0. The text is in $1-.
  61. EndEvent
  62.  
  63. Event <OnDCCSendConnect> "*"
  64.   // Fired when a DCC Send session connects.
  65.   // The nick is in $0. The filename is in $1-.
  66. EndEvent
  67.  
  68. Event <OnDCCSendDisconnect> "*"
  69.   // Fired when a DCC Send session disconnects.
  70.   // The nick is in $0. The filename is in $1-.
  71.   // $2 contains 1 if the transfer completed successfully, 0 otherwise.
  72. EndEvent
  73.  
  74. Event <OnDCCGetConnect> "*"
  75.   // Fired when a DCC Get session connects.
  76.   // The nick is in $0. The filename is in $1-.
  77. EndEvent
  78.  
  79. Event <OnDCCGetDisconnect> "*"
  80.   // Fired when a DCC Get session disconnects.
  81.   // The nick is in $0. The filename is in $1-.
  82.   // $2 contains 1 if the transfer completed successfully, 0 otherwise.
  83. EndEvent
  84.  
  85. Event <OnNewUserConnect> "*"
  86.   TextOutBitmap > . ecServText $bitmap(_face.bmp) Welcome to the all-new $char(3)1,9Visual IRC '97$char(3)! If you have any problems with the client, then click on the hyperlink to join the #virc channel. Remember to visit http://www.megalith.co.uk/virc and http://www.virc.com frequently for the latest versions too!!
  87. EndEvent
  88.  
  89. Event RawServerNotice "NOTICE *"
  90.   TextOut > . ecError *** [\bRAW\b] $2-
  91. EndEvent
  92.  
  93. Event JOIN "* JOIN"
  94.   TextOutBitmap > $2 ecJOIN $bitmap(_join.bmp) *** \b$nick ($user@$host)\b has joined channel $2
  95.   if ($GetBanlevel($nick!$user@$host) >= 1)
  96.      Bk $2 $nick You're not welcome here!! (banlevel = $GetBanlevel($nick!$user@$host))
  97.   endif
  98.   if ($GetUserlevel($nick!$user@$host) >= 1)
  99.      Mode $2 +o $nick
  100.   endif
  101. EndEvent
  102.  
  103. Event PART "* PART"
  104.   if ([$nick] != [$N])
  105.      TextOutBitmap > $2 ecPART $bitmap(_part.bmp) *** \b$nick ($user@$host)\b has left channel $2
  106.   endif
  107. EndEvent
  108.  
  109. Event QUIT "* QUIT"
  110.   for (@l $i = 1; $i <= $channelcount(); $i++)
  111.     if ($ison($nick $channels($i)))
  112.        TextOutBitmap > $channels($i) ecQUIT $bitmap(_quit.bmp) *** Signoff: \b$nick ($user@$host)\b has left IRC [$2-]
  113.     endif
  114.   endfor
  115. EndEvent
  116.  
  117. Event TOPIC "* TOPIC"
  118.   TextOut > $2 ecTOPIC *** \b$nick\b has changed the topic on $2 to "$StrTrim($3-)"
  119. EndEvent
  120.  
  121. Event MODE "* MODE"
  122.   TextOutBitmap > $2 ecMODE $bitmap(_mode.bmp) *** Mode change [$3-] on channel $2 by \b$nick\b
  123. EndEvent
  124.  
  125. Event INVITE "* INVITE"
  126.   TextOut ecNotice *** \b$nick ($user@$host)\b invites you to channel $StrTrim($3-)
  127. EndEvent
  128.  
  129. Event WALLOPS "* WALLOPS"
  130.   TextOut > . ecNotice !\b$nick\b!\t$StrTrim($2-)
  131. EndEvent
  132.  
  133. Event ChannelMessage "* PRIVMSG #*"
  134.   TextOut > $2 ecChanText <\b$nick\b>\t$StrTrim($3-)
  135. EndEvent
  136.  
  137. Event LocalChannelMessage "* PRIVMSG &*"
  138.   TextOut > $2 ecChanText <\b$nick\b>\t$StrTrim($3-)
  139. EndEvent
  140.  
  141. Event CTCP "* PRIVMSG * :\A*"
  142.   TextOut ecCTCP *** Received CTCP $Upper($StrTrim($3)) from \b$nick\b: $4-
  143. EndEvent
  144.  
  145. Event ChannelNotice "* NOTICE #*"
  146.   TextOut > $2 ecNOTICE =\b$nick\b=\t$StrTrim($3-)
  147. EndEvent
  148.  
  149. Event LocalChannelNotice "* NOTICE &*"
  150.   TextOut > $2 ecNOTICE =\b$nick\b=\t$StrTrim($3-)
  151. EndEvent
  152.  
  153. Event PrivateNotice "* NOTICE *"
  154.   if ($StrPos(. $nick) > 0)
  155.      TextOut > . ecNOTICE =\b$nick\b=\t$StrTrim($3-)
  156.   else
  157.      TextOut ecNOTICE =\b$nick\b=\t$StrTrim($3-)
  158.   endif
  159. EndEvent
  160.  
  161. Event CTCPReply "* NOTICE * :\A*"
  162.   TextOut ecCTCP *** Received CTCP $Upper($StrTrim($3)) reply from \b$nick\b: $4-
  163. EndEvent
  164.  
  165. Event KICK "* KICK *"
  166.   TextOut > $2 ecKICK *** \b$nick\b has kicked \b$3\b from channel $2 [$StrTrim($4-)]
  167. EndEvent
  168.  
  169. Event NICK "* NICK"
  170.   for (@l $i = 1; $i <= $channelcount(); $i++)
  171.     if ($ison($nick $channels($i)))
  172.        TextOut > $channels($i) ecNICK *** \b$nick\b is now known as \b$2\b
  173.     endif
  174.   endfor
  175. EndEvent
  176.  
  177. Event PrivateMessage "* PRIVMSG *"
  178.   if ($GetSetting(Options QueryEnabled)) || ($IsQuerying($nick))
  179.      TextOut > $nick ecQueryText <\b$nick\b>\t$StrTrim($3-)
  180.   else
  181.      TextOut ecPRIVMSG *\b$nick\b*\t$StrTrim($3-)
  182.   endif
  183. EndEvent
  184.  
  185. Event ChannelAction "* PRIVMSG #* :\AACTION"
  186.   TextOut > $2 ecACTION  * \b$nick\b $4-
  187. EndEvent
  188.  
  189. Event LocalChannelAction "* PRIVMSG &* :\AACTION"
  190.   TextOut > $2 ecACTION  * \b$nick\b $4-
  191. EndEvent
  192.  
  193. Event PrivateAction "* PRIVMSG * :\AACTION"
  194.   if ($GetSetting(Options QueryEnabled)) || ($IsQuerying($nick))
  195.      TextOut > $nick ecACTION  *> \b$nick\b $4-
  196.   else
  197.      TextOut ecACTION  *> \b$nick\b $4-
  198.   endif
  199. EndEvent
  200.  
  201. Event PingReply "* NOTICE * :\APING"
  202.   TextOut ecCTCP *** Received CTCP $StrTrim($3) reply from \b$nick\b: $DecodePingInterval($4)
  203. EndEvent
  204.  
  205. Event Ping "* PRIVMSG * :\APING"
  206.   // Don't display anything when a ping
  207.   // comes in.
  208. EndEvent
  209.  
  210. Event 471 "* 471 *"
  211.   TextOut > $3 ecError *** Cannot join channel $3 (+l - channel is full)
  212. EndEvent
  213.  
  214. Event 473 "* 473 *"
  215.   TextOut > $3 ecError *** Cannot join channel $3 (+i - invite-only)
  216. EndEvent
  217.  
  218. Event 474 "* 474 *"
  219.   TextOut > $3 ecError *** Cannot join channel $3 (+b - you're banned)
  220. EndEvent
  221.  
  222. Event 475 "* 475 *"
  223.   TextOut > $3 ecError *** Cannot join channel $3 (+k - channel key is set)
  224. EndEvent
  225.  
  226. // Aliases
  227.  
  228. Alias J
  229.   if ([$1] == [])
  230.      @l $x = $?="Enter a channel name to join:"
  231.   else
  232.      @l $x = $1-
  233.   endif
  234.   if ([$substr($x 1 1)] != [#]) && ([$substr($x 1 1)] != [&])
  235.      @l $x = #$x
  236.   endif
  237.   Join $x
  238. EndAlias
  239.  
  240. Alias OP
  241.   if ([$1] == [])
  242.      Mode $C +oooo $?="Enter some nicks to op:"
  243.   else
  244.      Mode $C +oooo $1-
  245.   endif
  246. EndAlias
  247.  
  248. Alias DEOP
  249.   if ([$1] == [])
  250.      Mode $C -oooo $?="Enter some nicks to deop:"
  251.   else
  252.      Mode $C -oooo $1-
  253.   endif
  254. EndAlias
  255.  
  256. // Menus and popups
  257.  
  258. MenuTree MT_MainMenu
  259.   M_FILE       <none> 0 0 &File
  260.   M_NEWCONNECT Ctrl+S 0 1 &New connection ...
  261.   M_SETUP      <none> 0 1 Client s&etup ...
  262.   M_FSEP1      <none> 0 1 -
  263.   M_EXIT       Alt+X  0 1 E&xit
  264.   M_TOOLS      <none> 0 0 &Tools
  265.   M_FINGER     Ctrl+F 0 1 UNIX &finger ...
  266.   M_DNS        Ctrl+L 0 1 &DNS lookup ...
  267.   M_TSEP1      <none> 0 1 -
  268.   M_LINKS      <none> 1 1 &Links
  269.   M_CHANLIST   <none> 1 1 &Channel list ...
  270.   M_TSEP2      <none> 0 1 -
  271.   M_EXPLORE    Ctrl+E 0 1 &Explore ...
  272.   M_SCRIPTING  <none> 0 0 &Scripting
  273.   M_EVENTS     <none> 0 1 &Events ...
  274.   M_ALIASES    <none> 0 1 &Aliases ...
  275.   M_MENUS      <none> 0 1 &Menus/popups ...
  276.   M_SCRSEP1    <none> 0 1 -
  277.   M_LOAD       <none> 0 1 &Load script ...
  278.   M_SCRSEP2    <none> 0 1 -
  279.   M_VSPUBWIZ   <none> 0 1 &ViRCScript Publishing Wizard ...
  280. EndMenuTree
  281.  
  282. MenuTree MT_ServerPopup
  283.   M_BUFFER      <none> 0 0 &Buffer
  284.   M_BUFFERSAVE  <none> 0 1 &Save ...
  285.   M_BUFFERCLEAR <none> 0 1 &Clear
  286.   M_SSEP1       <none> 0 0 -
  287.   M_SCONNECT    <none> 2 0 Co&nnect
  288.   M_SDISCONNECT <none> 1 0 &Disconnect
  289.   M_SSEP2       <none> 0 0 -
  290.   M_SIGNOFF     <none> 1 0 &Signoff ...
  291. EndMenuTree
  292.  
  293. MenuTree MT_ChannelTextPopup
  294.   M_BUFFER      <none> 0 0 &Buffer
  295.   M_BUFFERSAVE  <none> 0 1 &Save ...
  296.   M_BUFFERCLEAR <none> 0 1 &Clear
  297.   M_CSEP1       <none> 0 0 -
  298.   M_CHANINFO    <none> 0 0 C&hannel control ...
  299.   M_CSEP2       <none> 0 0 -
  300.   M_OFFERXDCC   <none> 0 0 &Offer XDCC packs
  301.   M_WHOLIST     <none> 0 0 &Who list ...
  302. EndMenuTree
  303.  
  304. MenuTree MT_ChannelNicksPopup
  305.   M_WHOIS     <none> 0 0 &Whois (user info)
  306.   M_QUERY     <none> 0 0 &Query (private message window)
  307.   M_SEP1      <none> 0 0 -
  308.   M_DCCCHAT   <none> 0 0 DCC &Chat
  309.   M_DCCSEND   <none> 0 0 DCC &Send ...
  310.   M_DCCWBOARD <none> 0 0 DCC &Whiteboard ...
  311.   M_TDCCSEND  <none> 0 0 TDCC S&end ...
  312.   M_TDCCVOICE <none> 0 0 TDCC &Voice ...
  313.   M_TDCCVIDEO <none> 0 0 TDCC V&ideo ...
  314.   M_SEP2      <none> 0 0 -
  315.   M_CTCP      <none> 0 0 C&TCP
  316.   M_CPING     <none> 0 1 &PING
  317.   M_CVERSION  <none> 0 1 &VERSION
  318.   M_CTIME     <none> 0 1 &TIME
  319.   M_SEP3      <none> 0 0 -
  320.   M_OP        <none> 1 0 &Op
  321.   M_DEOP      <none> 1 0 &Deop
  322.   M_KICK      <none> 1 0 &Kick
  323.   M_BAN       <none> 1 0 &Ban
  324.   M_KICKBAN   <none> 1 0 K&ickban
  325. EndMenuTree
  326.  
  327. MenuTree MT_QueryTextPopup
  328.   M_WHOIS     <none> 0 0 &Whois (user info)
  329.   M_SEP1      <none> 0 0 -
  330.   M_DCCCHAT   <none> 0 0 DCC &Chat
  331.   M_DCCSEND   <none> 0 0 DCC &Send ...
  332.   M_DCCWBOARD <none> 0 0 DCC &Whiteboard ...
  333.   M_TDCCSEND  <none> 0 0 TDCC S&end ...
  334.   M_TDCCVOICE <none> 0 0 TDCC &Voice ...
  335.   M_TDCCVIDEO <none> 0 0 TDCC V&ideo ...
  336.   M_SEP2      <none> 0 0 -
  337.   M_CTCP      <none> 0 0 C&TCP
  338.   M_CPING     <none> 0 1 &PING
  339.   M_CVERSION  <none> 0 1 &VERSION
  340.   M_CTIME     <none> 0 1 &TIME
  341.   M_SEP2      <none> 0 0 -
  342.   M_TEST1     <none> 0 0 &Example query menu script
  343. EndMenuTree
  344.  
  345. MenuItem M_FILE on MT_MainMenu
  346. EndMenuItem
  347.  
  348. MenuItem M_NEWCONNECT on MT_MainMenu
  349.   NewServerWindow
  350. EndMenuItem
  351.  
  352. MenuItem M_SETUP on MT_MainMenu
  353.   ShowClientSetup
  354. EndMenuItem
  355.  
  356. MenuItem M_FSEP1 on MT_MainMenu
  357. EndMenuItem
  358.  
  359. MenuItem M_EXIT on MT_MainMenu
  360.   Exit
  361. EndMenuItem
  362.  
  363. MenuItem M_TOOLS on MT_MainMenu
  364. EndMenuItem
  365.  
  366. MenuItem M_FINGER on MT_MainMenu
  367.   Finger
  368. EndMenuItem
  369.  
  370. MenuItem M_DNS on MT_MainMenu
  371.   @l $x = $?="Enter a hostname to DNS lookup:"
  372.   if ([$x] != [])
  373.      DNS $x
  374.   endif
  375. EndMenuItem
  376.  
  377. MenuItem M_TSEP1 on MT_MainMenu
  378. EndMenuItem
  379.  
  380. MenuItem M_LINKS on MT_MainMenu
  381.   Links
  382. EndMenuItem
  383.  
  384. MenuItem M_CHANLIST on MT_MainMenu
  385.   List
  386. EndMenuItem
  387.  
  388. MenuItem M_TSEP2 on MT_MainMenu
  389. EndMenuItem
  390.  
  391. MenuItem M_EXPLORE on MT_MainMenu
  392.   Explore
  393. EndMenuItem
  394.  
  395. MenuItem M_SCRIPTING on MT_MainMenu
  396. EndMenuItem
  397.  
  398. MenuItem M_EVENTS on MT_MainMenu
  399.   ShowEventEditor
  400. EndMenuItem
  401.  
  402. MenuItem M_ALIASES on MT_MainMenu
  403.   ShowAliasEditor
  404. EndMenuItem
  405.  
  406. MenuItem M_MENUS on MT_MainMenu
  407.   ShowMenuEditor
  408. EndMenuItem
  409.  
  410. MenuItem M_LOAD on MT_MainMenu
  411.   @l $x = $opendialog(Load a ViRCScript script file|ViRCScript script (*.vsc)|*.vsc|All files (*.*)|*.*)
  412.   if ([$x] != [])
  413.      Load "$x"
  414.   endif
  415. EndMenuItem
  416.  
  417. MenuItem M_VSPUBWIZ on MT_MainMenu
  418.   ShowViRCScriptPublishingWizard
  419. EndMenuItem
  420.  
  421. MenuItem M_BUFFER on MT_ServerPopup
  422. EndMenuItem
  423.  
  424. MenuItem M_BUFFERSAVE on MT_ServerPopup
  425.   @l $x = $savedialog(Append window buffer to a file|All files (*.*)|*.*)
  426.   @l $y = $mapobject(.:tbServerText)
  427.   AppendText "$x" $prop($y.Text)
  428.   UnmapObject $y
  429. EndMenuItem
  430.  
  431. MenuItem M_BUFFERCLEAR on MT_ServerPopup
  432.   @l $x = $mapobject(.:tbServerText)
  433.   $x.Clear
  434.   UnmapObject $x
  435. EndMenuItem
  436.  
  437. MenuItem M_SSEP1 on MT_ServerPopup
  438. EndMenuItem
  439.  
  440. MenuItem M_SCONNECT on MT_ServerPopup
  441.   Connect
  442. EndMenuItem
  443.  
  444. MenuItem M_SDISCONNECT on MT_ServerPopup
  445.   Disconnect
  446. EndMenuItem
  447.  
  448. MenuItem M_SSEP1 on MT_ServerPopup
  449. EndMenuItem
  450.  
  451. MenuItem M_SIGNOFF on MT_ServerPopup
  452.   @ $x = $?="Enter a signoff quote, or just press Enter."
  453.  
  454.   if ([$x] != [])
  455.      Quit $x
  456.   else
  457.      Quit \b[=\uV97\u=]\b Leaving
  458.   endif
  459. EndMenuItem
  460.  
  461. MenuItem M_BUFFER on MT_ChannelTextPopup
  462. EndMenuItem
  463.  
  464. MenuItem M_BUFFERSAVE on MT_ChannelTextPopup
  465.   @l $x = $savedialog(Append window buffer to a file|All files (*.*)|*.*)
  466.   @l $y = $mapobject($C:tbChannelText)
  467.   AppendText "$x" $prop($y.Text)
  468.   UnmapObject $y
  469. EndMenuItem
  470.  
  471. MenuItem M_BUFFERCLEAR on MT_ChannelTextPopup
  472.   @l $x = $mapobject($C:tbChannelText)
  473.   $x.Clear
  474.   UnmapObject $x
  475. EndMenuItem
  476.  
  477. MenuItem M_CSEP1 on MT_ChannelTextPopup
  478. EndMenuItem
  479.  
  480. MenuItem M_CHANINFO on MT_ChannelTextPopup
  481.   ChannelControl
  482. EndMenuItem
  483.  
  484. MenuItem M_CSEP2 on MT_ChannelTextPopup
  485. EndMenuItem
  486.  
  487. MenuItem M_OFFERXDCC on MT_ChannelTextPopup
  488.   XDCC
  489. EndMenuItem
  490.  
  491. MenuItem M_WHOLIST on MT_ChannelTextPopup
  492.   WWho
  493. EndMenuItem
  494.  
  495. MenuItem M_WHOIS on MT_ChannelNicksPopup
  496.   Whois $nick
  497. EndMenuItem
  498.  
  499. MenuItem M_QUERY on MT_ChannelNicksPopup
  500.   ForEach ($nick;$1-)
  501.     Query $nick
  502.   EndForEach
  503. EndMenuItem
  504.  
  505. MenuItem M_SEP1 on MT_ChannelNicksPopup
  506. EndMenuItem
  507.  
  508. MenuItem M_DCCCHAT on MT_ChannelNicksPopup
  509.   ForEach ($nick;$1-)
  510.     DCC Chat $nick
  511.   EndForEach
  512. EndMenuItem
  513.  
  514. MenuItem M_DCCSEND on MT_ChannelNicksPopup
  515.   ForEach ($nick;$1-)
  516.     DCC Send $nick
  517.   EndForEach
  518. EndMenuItem
  519.  
  520. MenuItem M_DCCWBOARD on MT_ChannelNicksPopup
  521.   ForEach ($nick;$1-)
  522.     DCC Whiteboard $nick
  523.   EndForEach
  524. EndMenuItem
  525.  
  526. MenuItem M_TDCCSEND on MT_ChannelNicksPopup
  527.   ForEach ($nick;$1-)
  528.     TDCC Send $nick
  529.   EndForEach
  530. EndMenuItem
  531.  
  532. MenuItem M_TDCCVOICE on MT_ChannelNicksPopup
  533.   ForEach ($nick;$1-)
  534.     TDCC Voice $nick
  535.   EndForEach
  536. EndMenuItem
  537.  
  538. MenuItem M_TDCCVIDEO on MT_ChannelNicksPopup
  539.   ForEach ($nick;$1-)
  540.     TDCC Video $nick
  541.   EndForEach
  542. EndMenuItem
  543.  
  544. MenuItem M_SEP2 on MT_ChannelNicksPopup
  545. EndMenuItem
  546.  
  547. MenuItem M_CTCP on MT_ChannelNicksPopup
  548. EndMenuItem
  549.  
  550. MenuItem M_CPING on MT_ChannelNicksPopup
  551.   ForEach ($nick;$1-)
  552.     Ping $nick
  553.   EndForEach
  554. EndMenuItem
  555.  
  556. MenuItem M_CVERSION on MT_ChannelNicksPopup
  557.   ForEach ($nick;$1-)
  558.     CTCP $nick VERSION
  559.   EndForEach
  560. EndMenuItem
  561.  
  562. MenuItem M_CTIME on MT_ChannelNicksPopup
  563.   ForEach ($nick;$1-)
  564.     CTCP $nick TIME
  565.   EndForEach
  566. EndMenuItem
  567.  
  568. MenuItem M_SEP3 on MT_ChannelNicksPopup
  569. EndMenuItem
  570.  
  571. MenuItem M_OP on MT_ChannelNicksPopup
  572.   ForEach ($nick1,$nick2,$nick3;$1-)
  573.     Mode $C +ooo $nick1 $nick2 $nick3
  574.   EndForEach
  575. EndMenuItem
  576.  
  577. MenuItem M_DEOP on MT_ChannelNicksPopup
  578.   ForEach ($nick1,$nick2,$nick3;$1-)
  579.     Mode $C -ooo $nick1 $nick2 $nick3
  580.   EndForEach
  581. EndMenuItem
  582.  
  583. MenuItem M_KICK on MT_ChannelNicksPopup
  584.   ForEach ($nick;$1-)
  585.     Kick $C $nick
  586.   EndForEach
  587. EndMenuItem
  588.  
  589. MenuItem M_BAN on MT_ChannelNicksPopup
  590.   ForEach ($nick;$1-)
  591.     Ban $C $nick
  592.   EndForEach
  593. EndMenuItem
  594.  
  595. MenuItem M_KICKBAN on MT_ChannelNicksPopup
  596.   ForEach ($nick;$1-)
  597.     BK $C $nick
  598.   EndForEach
  599. EndMenuItem
  600.  
  601. MenuItem M_TEST1 on MT_QueryTextPopup
  602.   Desc $nick I'm using \bVisual IRC '97 $ver\b. Get your copy today from www.virc.com!!
  603. EndMenuItem
  604.  
  605. MenuItem M_WHOIS on MT_QueryTextPopup
  606.   Whois $nick
  607. EndMenuItem
  608.  
  609. MenuItem M_SEP1 on MT_QueryTextPopup
  610. EndMenuItem
  611.  
  612. MenuItem M_DCCCHAT on MT_QueryTextPopup
  613.   DCC Chat $nick
  614. EndMenuItem
  615.  
  616. MenuItem M_DCCSEND on MT_QueryTextPopup
  617.   DCC Send $nick
  618. EndMenuItem
  619.  
  620. MenuItem M_DCCWBOARD on MT_QueryTextPopup
  621.   DCC Whiteboard $nick
  622. EndMenuItem
  623.  
  624. MenuItem M_TDCCSEND on MT_QueryTextPopup
  625.   TDCC Send $nick
  626. EndMenuItem
  627.  
  628. MenuItem M_TDCCVOICE on MT_QueryTextPopup
  629.   TDCC Voice $nick
  630. EndMenuItem
  631.  
  632. MenuItem M_TDCCVIDEO on MT_QueryTextPopup
  633.   TDCC Video $nick
  634. EndMenuItem
  635.  
  636. MenuItem M_SEP2 on MT_QueryTextPopup
  637. EndMenuItem
  638.  
  639. MenuItem M_CTCP on MT_QueryTextPopup
  640. EndMenuItem
  641.  
  642. MenuItem M_CPING on MT_QueryTextPopup
  643.   Ping $nick
  644. EndMenuItem
  645.  
  646. MenuItem M_CVERSION on MT_QueryTextPopup
  647.   CTCP $nick VERSION
  648. EndMenuItem
  649.  
  650. MenuItem M_CTIME on MT_QueryTextPopup
  651.   CTCP $nick TIME
  652. EndMenuItem
  653.  
  654. UpdateMenus